Add
Copy
Delete
Equals
Exist
ExistByRef
ExistByRefSorted
ExistSorted
Extract
Fill
Find
FindByRef
FindByRefSorted
FindSorted
Insert
Pop
Push
Reverse
Sort	PUBLIC Name as String PUBLIC Age as Integer
SortUsing

Inherited methods

Clear
Remove
Resize
Shuffle

Example

本例演示如何创建一个TextBox数组。

PUBLIC aobjDisplay AS Object[9, 9]

PUBLIC SUB Form_Open()
DIM r AS Integer
DIM c AS Integer
DIM objTextBox AS TextBox

FOR r = 0 TO 8
    FOR c = 0 TO 8
      objTextBox = NEW TextBox(ME) '创建9＊9个文本框中的下一个
      objTextBox.Y = 9 + r * 40
      objTextBox.X = 9 + c * 40
      objTextBox.Width = 32
      objTextBox.Height = 32
      aobjDisplay[r, c] = objTextBox
    NEXT '    c
  NEXT '      r
END